﻿Imports Kimmo

Public Class [Default]
    Inherits Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
        WebSite.Directory_Create("~/Software Projects")
        ' define the path to store records
        clsDL.MasterPath = "SystemBuilder"
        SQLCompact.UseDataFolder = True
        ' open the connection to the database
        Dim dbName As String = String.Concat(WebSite.DomainDatabasePath(), clsDL.MasterPath.ToLower & ".sdf")
        SQLCompact.OpenConnection(dbName, "", "", False, False)
        SQLCompact.Database = dbName
        ' update the relevant table
        SQLCompact.Table_AddField("Columns", "IsAutoPostBack", SQLCompact.TableBuilder.ColumnTypeEnum.NVARCHAR, 50)
        clsDL.SaveSetting("database", dbName)
        Dim parameter As String = clsDL.ReadSetting("f")
        ShowForm(parameter)
    End Sub

    Public Sub ShowForm(ByVal frmLink As String)
        If Len(frmLink) > 0 Then Me.regCenter.IFrameUrl = frmLink
    End Sub

End Class